Fix eval-tests/backtrace-in-batch-mode test

* lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Fix the
zero-arg case.

diff --git a/lisp/emacs-lisp/debug-early.el b/lisp/emacs-lisp/debug-early.el
index e233e09e29e3b889a38d32aec4a5f1075137fd1c..85ed5f2176c615f349c83969e6691222eca79bf5 100644 (file)
--- a/lisp/emacs-lisp/debug-early.el
+++ b/lisp/emacs-lisp/debug-early.el
@@ -53,10 +53,11 @@ of the build process."
           (progn
             (princ "  (")
             (setq args (cons func args))))
-        (while (progn
-                 (prin1 (car args))
-                 (setq args (cdr args)))
-          (princ " "))
+        (if args
+            (while (progn
+                     (prin1 (car args))
+                     (setq args (cdr args)))
+              (princ " ")))
         (princ ")\n"))))))
 
 (defalias 'debug-early